home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carousel
/
CAROUSEL.cdr
/
mactosh
/
hc
/
macworld.sit
/
User Preferences 1987
/
card_3608.txt
< prev
next >
Wrap
Text File
|
1987-09-24
|
5KB
|
229 lines
-- card: 3608 from stack: in
-- bmap block id: 2152
-- flags: 4000
-- background id: 2615
-- name: User Preferences
----- HyperTalk script -----
on openCard
hide menuBar
setUserLevel the userLevel
if card field "User Name" is empty
then click at the loc of card field "User Name"
end openCard
on setUserLevel whatLevel
set userLevel to whatLevel
if the userLevel is whatLevel then
put the userLevel into card field "User Level"
set hilite of button "Browsing" to the userLevel = 1
set hilite of button "Typing" to the userLevel = 2
set hilite of button "Painting" to the userLevel = 3
set hilite of button "Authoring" to the userLevel = 4
set hilite of button "Scripting" to the userLevel = 5
set visible of button "Power Keys" to the userLevel >= 3
set visible of button "Blind Typing" to the userLevel = 5
set hilite of button "Power Keys" to the powerKeys
set hilite of button "Blind Typing" to the blindTyping
else
set hilite of the target to false
end if
end setUserLevel
-- part 1 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=95 top=145 right=166 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Browsing
----- HyperTalk script -----
on mouseUp
setUserLevel 1
end mouseUp
-- part 2 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=187 right=208 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Painting
----- HyperTalk script -----
on mouseUp
setUserLevel 3
end mouseUp
-- part 3 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=208 right=229 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Authoring
----- HyperTalk script -----
on mouseUp
setUserLevel 4
end mouseUp
-- part 4 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=229 right=250 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scripting
----- HyperTalk script -----
on mouseUp
setUserLevel 5
end mouseUp
-- part 5 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=211 top=187 right=208 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Power Keys
----- HyperTalk script -----
on mouseUp
set powerKeys to the hilite of button "Power Keys"
end mouseUp
-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=168 top=91 right=111 bottom=392
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: User Name
----- HyperTalk script -----
on closeField
global userName
put card field "User Name" into userName
end closeField
-- part 8 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=95 top=166 right=187 bottom=223
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Typing
----- HyperTalk script -----
on mouseUp
setUserLevel 2
end mouseUp
-- part 9 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=173 top=125 right=144 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: User Level
-- part 13 (button)
-- low flags: 80
-- high flags: A005
-- rect: left=212 top=229 right=250 bottom=315
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blind Typing
----- HyperTalk script -----
on mouseUp
set blindTyping to the hilite of button "Blind Typing"
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=392 top=288 right=334 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
visual effect dissolve
go to card id 4250 of stack "MacWorld Home 1987"
end mouseUp
-- part contents for card part 9
----- text -----
1
-- part contents for card part 7
----- text -----